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AMUS NEWSLETTER 
VOLS. 8 & 9 

SOFTWARE BUGS, FIXES, ANNOUNCEMENTS, COMPLAINTS & COMMENTS VERSION 3.4 

We will list some of the "foibles of AMOS & ALPHA" in as decent 
an order as we can. If it is out of sequence or you don't understand 
what we're trying to do, just wait: it WILL get better. 

AlphaBASIC may generate & display a 'SYNTAX ERROR’ statement 
when the program command [ON (statement expression) GOTO] is used. 

Also, there are a lot of flaky things that happen with the error 
trapping. Use at your own risk. 

Curt Rostenbach has sent us a patch for LPTSPL that will print 
from DEVICE, other than DSK: if such is named in the PRINT statement. 
Also, the extensions: 

/K kills the file in QUEUE and also kills any 

printing in progress. 

/L same as no option=LIST 

/D deletes file from LIST after printing 

NOTE: Curt is sending this patch to AMUS and we will include it 
in the next newsletter and on the utility and game disk. 

Phil Hunt in Columbus, Ohio tells us that a null string used in 
a file specification in the OPEN statement crashes the system. For 
those of you who don't believe, just try: 

10 TEST$ =" 

20 OPEN #1, TEST$, INPUT 

or: 

10 OPEN #1, " ", INPUT 

Also, he says that the CLOSE and TAB work in different ways than 
most BASICS. 

CLOSE on an unopened file now causes an "I/O TO UNOPENED FILE" 
error message. This will mess up looped I/O. OPEN really should do an 
implicit CLOSE, but iz.Jtead, you get a "FILE ALREADY OPEN" message. 

TAB does not ignore TAB if it is already past the argument 
position. It will do a CR (carriage return) NOT A LINE FEED and goes to 
the position specified in the arguement. This is a handy way to do 
underlining, but you should be aware of it for other cases where you 
don't want stuff written on top of a previous line. 

If you load a program form disk into BASIC and type a new line 
containing an array variable with subscripts, and the array was defined 
in a previous MAP statement, you will get a "WRONG NUMBER OF SUBSCRIPTS" 
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error message. Recompiling the program will allow you to insert the new 
array variable. 

If an "OUT OF MEMORY" message occurs during a BASIC COMPILE, it 
will cause an ASCII memory dump of the program at odd times. A ’control 
C 1 will return you to READY, but any other command returns to the dump. 
Version 4.0 cures this problem. 

Nobody seems to be able to get PASCAL to use alternate work 
libraries or read the SYSTEM WORK.LIB to edit or change a system PASCAL 
file. Bob Dougherty at CRPLi in Boulder says he got around the problem 
by copying the files to another disk, then emptying their contents. Of 
course, he was still limited to 50 blocks. There will be a discussion of 
PASCAL at the Gala Inn Towne Hotel during the seminars at the WCCF. 

We find that DSKANA might run faster if there were an option to 
delete the printout of block numbers. 

Control C doesn’t seem to work when you compile a BASIC program 
with /O because AlphaBASIC can't resume at specific line numbers. 
Version 4.0 corrects this problem. 

Phil Hunt says that the macro assembler still hangs up in phase 
4 (LINK). Alpha Micro has said that version 3.4 has been corrected but 
we can’t all be making this many misteaks, can we? Also, is there a way 
to recover from ERROR 20's? (ERROR 10 *s can be fixed with DSKDDT, but 
not ERROR 20*s) Phil also says that he has a program that recovers 
files lost because of ERROR 20’s in the directory blocks. Eds note: 
ERROR 20's are caused because the disk cannot locate the block you are 
looking for. Reformatting the diskette will usually solve the problem 
if the diskette is not physically bad. If you must recover the data on 
the diskette, you might try adjusting one of the potentiometers (on 
Persci drives only) or adjusting the heads themselves. How to adjust 
the "pots" is described in an earlier AMUS newsletter. 

BASORT only works if the key is a string. If a binary key is 
used, the items being sorted must fit in main memory. Polyphase merge 
sort does not work in version 3.4, but 4.0 cures the problem. 

PRINT USING ignores all statements after a RESTORE command. Any 
statement after PRINT USING is also ignored unless that statement is 
enclosed in parentheses. Speaking of RESTORE, you cannot use RESTORE in 
an IF THEN statement. 

Richard McClendon says that when structuring ISAM files, a CODE 
2 by itself will skip one record after a record delete. You must use a 
CODE 1 and then a CODE 2 to maintain filt. record continuity. 

If you haven’t noticed by now, AlphaBASIC will accept all of the 
following variables in a program as separate variables: 

THING THING? THING (N) THING(N,J) . 

You can also have a subroutine named THING: if you wish in the 
same program. 

4.0 AlphaBASIC WILL NOT RUN PROGRAMS COMPILED IN VERSION 3.4. 

Version 4.0 will not CHAIN to programs in another PPN. 

Any system command file that is exactly 510 bytes long will not 
work. The link pointer gets written over and the file cannot get to the 
next block. 
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AMOS BUGS (Version 3.4) 




(1) ALPHABASIC-bad syntax within IF statements is ~ ..ectcu 

try entering IP(O) THEN PRINT "A" ELSE PP.Ii.T * 

it gets no syntax error. 

(2) ALPHABASIC-UCS,I£3 functions go ape on null ctr’ ./a 

Try typing PRINT UCS("") 
it crashes the system. 

(3) ALPHABASIC - FILEBASE command isn't documented 

The user may set the filebase record number by including 
FILEBASE n 

in an ALPHABASIC program, where n is an integer. Thereafter, 
whenever a READ or WRITE is made to a random file, the record 
number actually accessed will be equal to the value of the 
record number variable for this file decreased by n. 
Effectively, this says that the first record number in the 
random file is #n. 

(4) ALPHABASIC-ALLOCATEing too large a file crashes tne system 

If there is not enough contiguous room on the available disk 
(floppies; haven't tried a hard disk), then ALLOCATE -ill 
return a coherent error message, but the system is very sick 
and will do some-of the mast unpredictable things I f ’.e ever 
seen. Buss error, dead, crash an MFD, etc. 

(5) ALPHABASIC - BASORT doesn't work 

Just for the record, here is the fix from Alpha Micro • 

JDDT BASORT.PRG 

PROGRAM BASE IS 132^^2 

PROGRAM SIZE IS liSb 

Too7 MOV # 1 736 MOV #1,36(R4) 

ctrl-C 

where the underlined parts are given by AMOS. 
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AMOS BUGS (Version 3.4) 


(6) ALPHAS ASIC-too bizarre to summarise on one line .... 


Enter the following lines in BASIC : 

100 OPEN #1, "TRM: FRINTR" , OUTPUT 
200 FOR 1=1 TO 10 
300 PRINT ft 1 

400 PRINT #1, USING VAL("1") 

500 NEXT I 
600 CLOSE # 1 
700 END 
RUN 

where PRINTR is the TRMDEF name for the printer being used (if 
.it makes any difference, ours runs on the TELTYP.TDV driver). 

When the program runs, the output from line 300 correctly comes 
out on the printer, but the output from line 400 comes out on 
the user's crt \l The FOR-NEXT loop is not part of the bug, but 
it makes the blank lines printed stand out. The bug only occurs 
with PRINT USING, with a numeric USING field, with a VAL function. 
Take any of these out and it’s ok. 


X (7) KILL-small letters on a job name causes crash 

Also Z + iU+yS jG*' J*K fiai/C, 

Try typing ; ~ 

KILL Job2 

where J0B2 is a jobname. Or try one of your own jobnames. 

(8) SORT.PRG - the merge phase doesn’t work 

If a file fits into memory, SORT works fine. If the file is 
larger than available core,then a lot of time goes by, and at 
the end, an AMOS "." is given, but the original file is now 
empty (SIZE is 1 byte). • 

(9) SPOOLER-can't PRINT from any DSK except 0 or 1 

Matson & Moss in SanLuis Obispo report that two dual Persci 
drives can now execute the same program from different drives by 
different users, but a new bug has crept in which wasn't there 
before. If a file is spooled from DSK2 or DSK3, the system will 
promptly go dead. This happens whether the user is logged onto 
DSKO,1,2 or 3. 






4 



>rj; a 




3 Ml ; 8 

L'JMHUTER SYSTEMS 


i\!C 


. J *\ *». I. Pt.w. « I .. 1,,^ Vl. 

503 SOUTH LAKE AVENUE, RASA EL. 


TELEPHONE [213) 6SA-33' 
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(10) ADDS .TDV-v/atc:. d\xt frr IA3(-l,n) agreement with other TDVs 

The ALPHABASIC docwerr^cft ion describes the TAB(*-l,n) features 
for n from 0 to 16 , The •_ ??t.ures of n up to 19 are 

17 -delete c:. irae^er* 

18 -insert Vev* 

19 - read cursor address 

These agree with the HAXL.MAC and ACTIV.MAC listings. 
Technically, these shcvli nave been added to the ALPHABASIC 
manual before Version In addition, the features 11,12 

should be re-worded in the manual. As of now they read, 

11 - Protected field (reduced intensity) 

12 - Unprotected ilold (normal intensity) 

This conforms to SGkjC erts. The Hazeltine,however reverses 
the relation of protected fields to intensity level (using 
reduced intensity for unprotected fields). Accordingly to the 
HAZEL.MAC listing, the manual should now read 

11 - low intensity 

12 - high intensity 

And the protection status would follow the particular ert’s 
convention. Nov/, to ro f tc the ADDS.MAC (remember ?). It 
does not have any features 11 or 12 implemented; this is 
probably because this v.cuid interfere with any other of the 
"attributes" that may be set on the ADDS ert beforehand. Think 
over that yourselves; i" is an arbitrary choice. However, the 
features 17 to 19 do not agree with the other TDVs (above), and 
the features from 2 C on should be promptly added to the BASIC 
manual. If it helps, I can summarize all the "attributes" for 
the ADDS in terms of bits (the manual omits this). Thus, to 
set an ADDS attribute, <-:nd cut the ASCII sequence s 
CHR(27) **CKR(46) HR(n} 

where the bit configuraticn of n sets each attribute as follows 
n = 64 

+32 (to activate underlining) 

* 16 (to activate reverse video) 

+ 4 (to activate zero intensity, for blank echo) 

+ 2 (to activate blinking) 

+ 1 (to activate naif intensity) 

By doing some logical bit setting, these attributes could 
probably be set independently by the ADDS.MAC driver, without 
disturbing the other attributes. 


N.* Vt- ^ 
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AI.-.OS BUGS (Version 3*4) 


. s-conr.ot open disk file (cr printer) for output 

fee listing on following page. In essence, if a batch 30 b 
(with a PSZ 1 TC terminal driver) tries to open a disk file 
fron BASIC, it will get hung up. The same thing happens i 
the batch 30 b tries to open the printer for output, using 
Of Eh 1 tt 1 , "TEM: PRINTR" , OUTPUT 
statement to open the printer. This happens even if the 
memory given to the batch job is the same as the user's crt, 
re the pregram executes correctly. • t 

hout these two capabilities in a batch job, the batch^loses 
most of its practical value (except as the spooler). 
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svsrfr^rAsj : 


ST 

JOBS JOB1,BATCH 

TRMDIiF CRT» AM 7:00-1 : 1 6* ADM3, 100, 100,200 

TRNI.iLF HOCRT, PSEUTiu, NULL, 23,25,2 

BEVTBL I.‘SK1 , TRM/LPT 

BITMAP ASK, 32, 0 

BITMAP DSK.32,1 

SYSTEM BASIC 

SYSTEM BUN 

SYSTEM 

Cl-KFRO 60 

ATTACH NOCRT,BATCH 
FORCE BATCH MEMORY 4K 
WAIT BATCH 
MT:U"RY 


C*,*J 

LOG DSKOI1.4 
BASIC 

OPEN ttl. “BOB.DAT", OUTPUT 

CLOSE ttl 

BYE 


(7) Boot sjB /)P AaiOS 

UCi 'JG SYSTFAf. \Mt 

LizTcb hfae 


© Execute eojy CMb 
Ffio/y JOBL' By 
rypi/vc " bob" 

Sc FEf a/ft FA/b 

SESVLT- ,s TH4 7- 

* "0OC.MT" is 4, eh/ 

ir/ 7IJF D)/?ECToAy 

Cm IS IS qjc 7 

iC r ' ,/l - c- eO/ 3 ,£/jr fcW.-’f 

/V?0C£ED|A'C7 

(D £- tECUrB Sc B.CMb 

B/Ooaj BATCH jog 

A y TV/’/MG 

"R>ME 3/} TOE bob" 

& THG A/ST SFCvy-T 
IS A-' "t06.fiAT” /a,' 

'' '' ' ■ ‘ •• v , / V // 

e/?-rCE JCB, 
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/3:0s SUGGESTIONS (Version 3.4) 


X. 


X, 



(1) TXT?:"/ . ■taneour, ri^ht/left justify 

Some o"Jiti u^c-cessors do it. We'd like it. Several customer 3 
have raid .key'd really like it. I've just started using the 
TXTFMT and I'd sure love it. Just find out the number . 

of blanks In the line, divide by the number of word gaps, and 
if the a*.<- r isn't an integer, then stuff the blanks in via 
some slmpj^ pattern that alternates between the lesser number 
of blanks and the greater. 

Also, I mi.-ht have missed it, but I think there is no right 
justify cc?j.and. 

(2) BASIC source code limit-about 90 blocks ?? * 

i 

We have compiled off disk a BASIC source program with 90 blocks, } 
It required COMF1L/O (no line numbers). i 

9 

z 

%• 

(3) BASIC luriP statement — — — allow mxtxalxzatxon of array values * 

X 

* 

The ALPHA Business Software has at least one line of source * 

code that uses the following tyre of syntax j ? 

MAPI At (5), S, 1, " A" , "B" , ”C " , T ’D H , "E" 
this does not currently compile, meaning that it will either be 
re-coded when it is de-bugged, or else this syntax will be 
implemented in ALPHASASIC. I’d prefer the later. There are 
other ways to initialize arrays, but this is the nicest. [ 

( 4 ) COMPIL - makes line numbers totally obsolete !!! * 

If an ALrH'MSIC source program is built up with the EDIT * 

program, with no line numbers on the left, and (of course) no 
line number references within the text (such^as GO TO 200), 
then COMPIL FILNAM will create the same file (FILNAM.RUN) as , ; 
would have been created if the source had line numbers and was * * 
compiled with the /O switch. ? 


( 5 ) SYSACT - short format possible 

To do a SYSACT on disk 0, type 
SYSACTs 

Unfortunately, this was accidentally discovered by someone who 
was trying to SYSACT disk 1, and did him no good until he made 
a phone cell. 


C- £*♦•«# i» 


r«. 


y |M?vf, |«| 





; ? 

; ALPHABASIC COMMON SUBROUTINE 5 

; ; 

; BY R. FOWLER (KHALSA COMPUTERS) - LAST UPDATE 1978 SEP 12 


COPY SYS 


COMMON: CMP 
BGE 
TYPE 
RTN 

TYPCHK s ADD 
MOVB 
CMPB 
BEQ 
CMPB 
BEQ 
TYPE 
RTN 

10: LEA 

MOV 

LOOPS ADD 
CMP 
BGE 
MOV 
MOV 
SUB 
BPL 
TYPE 
RTN 

SEND: CMPB 

BNE 
MBBU 
ADD 
BR 

RECV: MBBU 

ADD 
* BR 

END: RTN 

IOTYP: BLKB 

ROOM: BLKW 

DATBEG: BLKB 

DATEND: BLKB 


©R3,#2 
TYPCHK 

CCOMMON NEEDS 2+ ARGUMENTS!/ 


? CHECK FOR > 1 OPS SENT 


ERROR MESSAGE 


? SET UP ADDRESS OF FIRST XCALL PARAMETER 
; MOVE S/R BYTE 
; CHECK FOR S(END) CALL 


#4,R3 

@<R3),IOTYP 
IOTYP,#83. 

10 

IOTYP,#32. 

10 

CCOMMON ONLY S(ENDS) OR R(ECEIVES):■ 


? CHECK FOR R(ECEIVE) CALL 


ERROR MESSAGE 


RItDATBEC ; SET UP COMMON ADDRESS COUNTER 

#DATEND-DATBEG,ROOM ; SET UP COMMON "ROOM'' COUNTER 

#6, R3 ? COMPUTE NEXT "IMPURE” VARIABLE ADDRESS 

R3,R4 ; CHECK FOR LAST VARIABLE 

END 

2 < R3 >,RO 5 LOAD VARIABLE'S LENGTH 

(R3),R2 ? LOAD VARIABLE'S ADDRESS 

RO.ROOM ? DECREASE "ROOM” COUNTER 

SEND ? CHECK. FOR OVERFLOW OF COMMON AREA 

<DATA EXCEEDS COMMON AREA> ; ERROR MESSAGE 


IOTYP,#33. 
RECV 
R2.R1 
RO, R1 
LOOP 
R1 7 R2 
RO, R1 
LOOP 


5 CHECK FOR ”S(END)" 

? SEND NEXT VARIABLE TO COMMON AREA 
5 CALCULATE END OF VARIABLE 

? RECEIVE NEXT VARIABLE FROM COMMON AREA 


1 

1000. 

1 


S(END) OR R(ECEIVE) 

CONTAINS ROOM (BYTES) LEFT IN COMMON AREA 
(MAXIMUM) COMMON DATA AREA 


????? 5 ? 7777 » 777 ? 777777 ? 7 ? 777 ?? 7 ??? 5 ?? 777 ? 777 ? 7 ? 5 ? 7 ???*?? 7 ? 5 ????? 

CALLING SEQUENCE IN ALPHASASIC : 5 

XCALL COMMON, <MOD£>, <VAR1>, <VAR2>, CVAR33, ... ; 

WHERE <MODE> IS A STRING CONSTANT OR VARIABLE WHOSE " 

FIRST CHARACTER IS ”S M OR "R M TO SEND OR RECEIVE 5 

DATA TO THE COMMON AREA. ; 

THE REMAINING PARAMETERS ARE VARIABLES OR CONSTANTS 
TO BE SENT/RECEIVED TO THE COMMON AREA (IN FORTRAN ; 

COMMON FASHION). 5 
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Command file DSKO:SACK.CMP[2,2] 


: < 

> 

LOAD DSKO:LOG[1,4] 

LOAD DSKO:ERASE[1,4] 

LOAD DSK0:DIRSEQ[1,4] 

LOAD DSKO:MOUNT[1,4] 

LOAD DSKO:COPY[1,4] 

LOAD DSKO:DING[1,4] 

: R 
LOG 
:S 
: < 

THIS PROGRAM WILL COPY ALL THE FILES FROM THE LOGIN NUMBER SHOWN ABOVE 
ONTO YOUR BACKUP DISK. (IF THE ABOVE NUMBER DOES NOT INCLUDE , DSK1:', 
HIT CONTROL 'C* TO ABORT THIS PROGRAM.) 

REMOVE THE 1 SYSTEM * DISK FROM THE LEFT-HAND SLOT AND REPLACE IT WITH 
YOUR BACKUP DISK. 

NOW PUSH 1 RETURN 1 :> 

: K 

ERASE *.BAK 
DIRSEQ 
MOUNT DSKO: 

LOG DSKO: 

: < 

ERASING THE FOLLOWING FILES FROM THE BACKUP DISK: 

> 

: R 

ERASE *.* 

DING 1 
: < 

COPYING 'THE FOLLOWING FILES ONTO THE BACKUP DISK: 

> 

COPY/X=DSKl:*.* 

: S 

LOG DSK1: 

: R 

DING 3 
:S 
: < 

NOW , REMOVE YOUR BACKUP DISK FROM THE LEFT-HAND SLOT AND REPLACE IT 
WITH THE * SYSTEM* DISK YOU REMOVED EARLIER. 

PUSH 1 RETURN 1 ONCE MORE:> 

: K 

MOUNT DSKO: 

DEL *.* 

: < 

FINISHED. 

> 
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To Alpha Micro & AMUS 
Conversion Error 

From time to time we all need to pack a little more data 
onto the diskette. One way to do this is to store numeric data 
as binary instead of floating point. A contender for this is 
money data. Binary can only handle integers thus we must 
multiply our figure by 100, store it and divide it by 100 when 
we pull it back off of the disk. 

MAPI CUST'REC 

MAP2 NAMES,S,30 
KAP2 1IMIT,B,3 

• • • 

With a 3 byte binary field we can store a dollar amount «$l67,712.xx 
Thus: 

INPUT A 

CALI MONEY'CX 

LIMIT - A * 100 

• • • 

If you try this you will find that what is stored in limit if 
cents are entered is 1 cent less that what was entered, i.e. 

A « 112 

LIMIT GETS 11200 
A - 112.23 
LIMIT GETS 112.22 

The reason for this is that there is a rounding error in 
convertin g floating point to binary in some cases. In most 
higher level machines the internal representation for the 
floating point values 112 and 112.23 are handled differently. 

To get around this problem,until Alpha Micro has a chance 
to get it fixed.is the following 
AS « STR$(A*100) 

LIMIT « YAL(AS) 
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Thus you are changing the internal representation to one 
that will convert correctly. Also the program will still work 
OK when the conversion routine is fixed. 

RUN.PRG ERROR 

If a program is run that dimensions an array that eats up 
8lmost all of the user's core then it cannot be re-run without 
reloading the program again. The reason is that the run package 
does not reclaim the array space when it is called into action 
again. The is a real hassle when you are debugging and testing 
a program. 

We also had this problem occur on one of our systems out 
in the field. It was in a high school where the teacher was 
giving a test on a 4 user system. The first student would take 
the test^and his answers would be written to the disk and the 
program would end. The next student would come up to the same 
terminal and type RUN TEST 1A and get an * OUT OF MEMORY* error 
message. The grades from the kids who used the CRTs first were 
much higher that the 2nd and 3rd students whom figured they had 
broken the system. 

Two ways around the problem are to never let the program 
end and let the 2nd user just enter some key to start the program 
over again or to use a menu situation snd keep rechaining back 
to the program but none the less its a rea~ hassle when debugging 
programs. 

MULTI-USSR 

Another problem we're having, running under 3*4, is when 
we take a 4 or 5 terminal system to a show. When we run the 
same demo programs chained thru a menu program and 
2 users go after the same program at once, either both crash 
with program not found or one gets it and the other crashes. 

THE HAWK 

We desperately need some response times from anyone out 
there using the 10 meg system with several users running con¬ 
currently. One of our best customers 

is interested in running 10 terminals in a 

environment. If you have had any experience in this area 
please give us a call. 
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THE BEST 

Speaking with experience from the big systems on down, we 
sell both Honeywell and Alpha Micro, the cost/performance ratio 
of the Alpha Micro is unsurpassed. lt # s the best there is in 
the 10,000 to 50,000 range. 


Pranklin P. Parker 


Capt. Tim'Leslie^? / 

Computers Unlimited 
7724 East 89th Street 


Indianapolis, Iii 46256 
(317) 849-6505 
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HARDWARE BUGS, FIXES, ANNOUNCEMENTS, COMPLAINTS, & COMMENTS 

Make sure you have a good cooling & ventilation.system for your 
CDC 9740 HAWK disk drives. They have a tendency to overheat during a 
DEVCPY. 


For those of you with an LA-36 DECwriter running at 300 baud, 
LARK ELECTRONICS & DATA, P.O. Box 22, Skokie, Ill. 60076 has a 
modification kit that will speed up your DECwriter to 600 baud. They 
claim no loss of reliability at the higher speed. It's called the 
EXCELERXTER and retails for about $100. You must supply your own null 
bytes in the software driver during the CR & LF. 

DIGITAL MICRO SYSTEMS has a 16K static memory board with memory 
management compatible with A/M and it sells for $595.00/ assembled and 
tested. It is guaranteed for one year. They may be reached at: 

DIGITAL MICROSYSTEMS 
BOX 1212 

OREM, UTAH 84057 
(801) 224-2102 


The new terminal from Lear-Siegler is a replacement for the 
ADM-3, called the ADM-31. -In addition to all of the features and 
options of the older terminal, it has an expanded keyboard with a 
separate keyboard, 2 pages of screen memory, and a field protect feature 
for screen formatting. 

For those of you with TEI, EQUIBOXES, IMSAI, and other 
mainframes with rear panel cut-outs used for connector hole blanks, it 
is recommended that you tape them up or put a cover of some kind over 
them so that proper airflow is distributed to your S-10Q boards. 
Remember to tape shut the long slot across the top of the rear panel 
where the ribbon cables come out of the cabinet. Also, if the ICOM 
model 3712W dual drives are giving anyone fits, it is because they also 
have a cooling problem with the controller/formatter P.C. boards. You 
can cure the problem by taping up 85% of the area of the hole located at 
the right rear of the cabinet as viewed from the front, so that most of 
the air is forced out through the front of the box. If that doesn't 
cure the problem completely, try rplacing the 7 4164 chxp on board #1 
(top) near the front with a 74LS164. We also replaced the fan on our 
3712W with a muffin type fan that was quieter and had greater air flow. 
Always use an air filter, and change it every 6 months. 
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ALPHA MICRO SYSTEMS EXPANDS 


Alpha Micro Systems has expanded its operations to 
include a staff of fifty people and over 24,000 square 
feet including a new 12,000 square foot manufacturing 
area. 

REQUESTS 


We have a request for an interface to the Frieden 
Flexowriter 2300 Series. Does anyone have any ideas? 

AM-100 Users are also looking for a card reader. 

Two other rumors going around are that there is an 
interface between the S-100 Bus and the HP IB - RS448, 
also, is someone writing a "C" compiler for the AM-100? 

KHALSA BUGLIST 

Robert Fowler has supplied us (and Alpha Micro 
Systems) with another well documented buglist for 3.4 
Incedently, those wonderful documents that outlined the 
history of AMOS published in previous AMUS newsletters 
were done by Robert. 

AMOS BUGS (Version 3.4) 

(1) AlphaBASIC - bad syntax errors within IF 
statements are not detected: 

IF(0) then print "A" else print "B" 
gets no syntax error 

(2) Alph-BASIC - forcing a string to print a 
null with a "" tends to crash the system. 

(3) AlphaBASIC - ALLOCATEing too large a file 
crashes the system. 

(4) BASORT doesn't work 

(5) KILL - small letters on a job name causes a 
crash. Also, 3ASIC will not accept .small letters for 
filenames. 

(6) SORT.PRG doesn't work if it has to go into 
poly-phase merge. 
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(7) SPOOLer can’t print from any DSK except 0 or 1. 
If a file is spooled from DSK2 or DSK3, the system 
promptly goes dead. This happens whether the user is 
logged into DSKO, 1, 2, or 3. 

(8) AMOS - cannot open disk file (or printer) for 
output. In essence, if a batch job with a PSEUDO 
terminal tries to open a disk file from BASIC, it will 
get hung up. The same thing happens when the batch 
job tries to open the printer for output using the: 

OPEN #1, "TRM:PRINTR", OUTPUT 
statement to open the printer. This happens even if 
the memory given the batch jobs is the same as the 
user’s CRT where the program executes correctly. 


AM-1UQ Users Group 

The following letter is from Lefford F. Lowden, 
who publishes a newsletter from Rochester, New York. 
We have agreed to trade newsletters, and will print 
any items from that newsletter not duplicated by AMOS 
in this newsletter. 


Thanks for your newsletters. Note, in the June 
issue there is an error in the proposed Printer 
Spooler Request program changes. The line labeled 
QKIL2: MOVI 5,R3 should be: QKIL2: MOVI 6,R3 

Fortunately, this error will not be detected until 
a file is removed from the queue with the /K option. 

I agree with the suggestion made in the July 
Newsletter that PRINT FRED.DAT/D be implimented to 
delete a file after printing. I would also suggest 
something like PF~NT FRED.DAT/C35D which would print 
35 copies and then delete the file. It would also be 
nice to be able to simulate form feeds when one is 
running the spooler on a terminal rather than on a 
printer — in my case, I run it on a model 43 TTY. 
Which brings me to this — does anyone mind if I try 
to implement some, or all, of my suggestions with the 
program and them send the•resulting program to you 
for distribution, publication, or whatever with your 
group? On my end, I would dump it into the library. 

Sincerely, 

Lefford F. Lowden 
616 Long Pond Road 
Rochester, New York 14612 
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Some *.CMP 1 s of our own 


Tom Fox*s Command file suggestions brought a 
couple to mind that we use a lot. One is used to 
load the three programs needed to perform BASORT. 
Called SORTLD.CMD, it looks like this: 


Another quick and dirty one is called MYSTAT and 
is a poor man's substibe for DYSTAT 

TIME 

SYSTAT 

MYSTAT 

It does take up a portion of the AM-100 f s effort 
to run the thing, but once in a while, you want to 
look at what is going on over a period of time. 

AM-100 Medical Applications 

Sydney Z. Spiesel of Sisyphus Iterations, 77 
Everit St., New Haven, Conn. 06511 writes that he has 
a driver available for the Perkin-Elmer Fox CRT 
that anyone is welcome to. He has been using 
the AM-100 to develop a commercial turnkey advisory 
system for hospital emergency rooms, etc. and has 
also developed a considerable amount of statistical 
and utility software. 
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AMUS MEMBER'S NEEDS, WANTS, & SUGGESTIONS 

BITMAP in memory should be expanded by one 16-bit word for every 
drive using that bitmap. This word should include a binary number 
representing the total free blocks available on that disk drive and that 
word should be updated at the same time that the BITMAP is updated. 
Reading l’s and 0*s every time is time consuming, especially on 10M and 
larger disks. 

FLTCNV.PRG and TODCNV.PRG source codes should be made available. 
They are sorely needed for all kinds of timing, interval, and math 
routines. 


The MEMORY command needs work. If a user types MEMORY 6....Well, 
just try it and see (tee hee). Any MEMORY allocation that cannot handle 
MEMORY will result in a locked up terminal. 

How about job swapping if the user has a large enough disk to 
support same? 

MACRO should have a 'NOTE* pseudo OP. As used in other 
macroassemblers we have seen, it would generate no code, but would 
appear in the listing. It would generate an 1 L’ error message when 
error conditions exist that would bomb the assembly process when a bad 
term or argument is passed to the macro. Normally this would blow the 
assembly with no error messages whatsoever. 

Also needed is a ’TITLE' pseudo OP, as typing in titles on every 
sub assembly is a pain ... 

THE SOFTWARE EXCHANGE is a new publication devoted to the 
exchange of business and personal computing software. We talked to Alan 
Bartholomew, the Publisher/Editor, at the Personal Computing Faire In 
Anaheim at NCC *77. At that time, he was just getting the publication 
off the ground, and even then, it looked pretty good. You can write for 
your subscription (6 issues per year) by mailing $5.00 to: 

THE SOFTWARE EXCHANGE 
P.O. BOX 55056 
VALENCIA, CALIF. 91355 
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NEWSLETTER FOR AM-IOO USER'S GROUP Produced by Lefford F. Louden 

616 Lon 3 Pond Road 

1 OCTOBER 1978 Rochester, New York 14612 

NEDS FROM ALPHA MICRO 

Version 4.0 is scheduled for release about the end of October. It will 
contain a completely revamped version of COMPIL uhich will compile very large 
programs and will produce intelligible error messages. Other BASIC bugs have 
been fixed as well as some operating system glitches. Bob says that Many of the 
bugs mentioned in the September Newsletter have been fixed. Version 4.0 will 
also contain a new screen oriented editor (VUE) which was on display at the 
Alpha Micro booth at PC-76; this one requires a CRT with cursor addressing. 

A new language, MPL, is scheduled to be released. MF'L is similar to TRAC and 
SAM-76 if you know anything about either of those. 

Bob says that the M command in EDIT is not documented because it does 
not work well, and it is not supported by Alpha Micro. I found about it and. 
some of the others by experimentation. I have had access to a BECsysteM 10 and 
operated TECO, the editor on which the AM-100's EDIT is based. In addition, 
when I worked on the Sigma 9, I wrote an implementation of TECO for the Sigma 9. 
Thus, what I did was to try a wide selection of the commands to TECO in EDIT to 
see what happened. Most of the exotic commands failed, but M worked. Thus 
after some further testing, I reported it as being available. 


WARNING ON FOR - NEXT LOOPS 

FOR - NEXT loops in BASIC and DO loops in FORTRAN present problems in 
that implementations are not always consistent. In running a check on the 
operation of ALPHABASIC (TM) with the statement: 

FOR 1=1 TO 6: NEXT I: PRINT I it is found that the value output is 9!!! 

Note: this is not an error as both FORTRAN and BASIC do not require that the 
index on a DO or a FOR-NEXT loop be defined outside the loop. 
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PROGRAMS USERS ARE LOOKING FOR 

Bob Chaput has written a feu days ago and said: "Uith regard to the 
types of programs I would like to see tare! additional business application 
external subroutines, sinilar to the 'unpublished, undistributed' Alpha 
Business Subroutines (copy enclosed). I have found these to be of great value, 
especially for data entry." I an including below an abbreviated listing of the 
contents of the progran descriptions that he sent so that others who don't know 
of the package will be at least advised of what is in it. Since Bob says that 
it is undistributed, he nay becone its distributor. However, I think that you 
night check with your dealer first. I haven't had tine to check with nine as I 
a« writing this, but I will check with hin early next week. 


ALPHA BUSINESS SUBROUTINES 


XC.ALL ACCEPT,CHAR 

accepts any character (rubout, control-c, etc.) and returns 
floating point value in CHAR. 

XCALL ANYCN,CNGCTL,UHATNO 

for editing data input via a CRT. 


XCALL BASORT. 

this is discussed in nost nanuals, so nothing further. 
XCALL COMMON,. 

this is discussed in nost nanuals, so nothing further. 

XCALL BSPLY,XMAX,ROD,COL,BECMAL,OPTION 

XMAX nax nun of digits in decinal field, controls output of 
trailing blanks unless option 6 is specified. 

R'OU ROU+2 = actual row where output appears 
COL screen colunn where output appears 
BECMAL nuneric field to be output 
OPTION type of editing. 

1 => straight nuneric editing. 

2 => date editing (MM/BB/YY) 

3 *> dollar editing <888,tt»8, 
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4 => three dibits to right of decimal point. 

5 => one digit to right of decimal point. 

6 => straight nu«ber f only 1 blank after field is output. 


XCALL INPUT f R0'J,COL,XMAX,XMIN,TYPE,ENTRY,IfIXCTL 

ROU R0Ur2 = actual row on which to accept data 

CCL screen column fro.i which to accept data 

XrtAX wax nun of char to be accepted 

XMTN min nun of char to be accepted 

TYPE a two character string defining type of data to be entered 
"A " ='; alphanuneric 


"ft " => numeric field - positive only 

"ft-" => numeric field - positive or negative 

"ftN" => numeric field - sane as "ft " but displays one r.lank after dots 

"N " => numeric field - same as "ft " tut does not default to rero 

"NN" => numeric field - sane as "N " but one blank after dots 


”C " 

>• | ii 

II 4 It 
i* 

" H " 
"?E" 


=/ verification - will accept only carriage return 
=> dollar field, pos only, enter 11.00 as ICO 
=> dollar field, positive or negative 
=> hGurs field - processed the sane as " 

=> where ? is any other type, the field will accept 
as a response 

= > allows <TABk as the term not i ng char, sets lidxCTL to 3 
"YN" => YES/NO answer - accepts only "r" or *‘N" 

"YE" => YES/f.'0/EfiD - sane as "YN" but also allows 
"YY" =) YES/NO - same as "YN" but defaults to "Y*‘ 

ENTRY string variable which contains response on return 
INXCTL code returned by INPUT 
0 -> input OK, no Message 

1 =; "Y" answer to YES/NO field 

2 =, "N“ answer tc YES/NO field, or "EM" for « field 

3 => <TAB/ key used to default or. **?T" field 


”?T” 


“END" 


rJD" ss response 


XCALL M£SAG,HSG,MSXCTL 

subroutine to display standard error messages 
MSG string to be displayed 
MSXCTL specifies message option 

1 => display message on line 24 with **CR TO RECOVER" 
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2 => display Message on line 24 with "CR TO CONTINUE" 

3 => display "INVALID ENTRY SEE INSTRUCTIONS CR TO RECOVER" on 

on line 24. MSG can be null for this one 

4 => display Message only on line 24 

5 => display "FILE NOW FULL - SEE INSTRUCTIONS" and stop. If 

this option is used, all files should be closed prior to 
calling this routine 

6 => display "INVALID SELECTION CR TO RECOVER". MSG nay be null 
XCALL MHENU,MENUID,RECNAM, SELECT 

subroutine to display standard Master Menu. It clears the screen 
displays application in upper left and in the Middle is following 

PLEASE SELECT APPLICATION 
1) ADD NEW recnan 
. 2) CHANGE/INQUIRE recnan 

3) DELETE recnan 

4) PRINT-OUT recnan 

i 

MENUID string specifying the title of the application. MENUID is 
displayed in upper left-hand corner of screen 
RECNAM string specifying the nane of the key field of the Master 
record to be Maintained (CUSTOMER, VENDOR, etc.) 

SELECT value of the application selected by the user, where: 

0 => "END" has been typed 

1 => ADD node 

2 => CHANGE/INQUIRE node 

3 => DELETE Mode 

4 => PRINT-OUT 

5 => PRINT-OUT with sort before printing 
XCALL.MOUNT,NAME,DEVICE 

NAME string specifying nane of item to be Mounted (like 3 part 
bill heads, etc.) 

DEVICE string specifying device on which iteM is to be Mounted 


XCALL PGMEND 

clears screen and displays "END OF PROGRAM" in Middle of screen 
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XCALL PRINT,LINCNT,PGCNT,PLINE,TITLE,HDR1,HDR2,HBR3,LEGNB1,LEGNB2,LEbND3, 
LINCTL,PAGSIZ,PRCTL2,LGNCTL,PCHANL 

This routine is couple:: enough that I won't try to describe the 
arguments except to say that it provides a flexible, sophisticated 
Method of formatting printer output. It handles the job of 
pagination, titling, and page numbering as well as providing 
several options for headers and legends. Output goes to a file 
on the disk or any other device capable of handling sequential 
ASCII output. 


XCALL RBATE.PATE 

DATE floating point variable into which the decoded date is to be 
placed. Format of variable is ((month*10000) + (day+100 Hyear) 
or MMDDYY. 

XCALL RENAME,OLDNAM,NEUNAM,STATUS 

OLBNfifl string specifying current file name 
NEUNAM string specifying new name for the file. 

STATUS floating point variable 0 => success, nonzero => failure 


XCALL SERCH,. 

SERCH is an AlphaBasic subroutine which handles binary and 
sequential searching of disk files. It allous the user to 
access a file via symbolic keys without paying the overhead 
costs of ISAM. 

XCALL SRCH2,. 

SRCH2 is a simplified version of SERCH 

XCALL STENQ, STRTNO.ENBNQ*, STNFLB, XMAX, STXCTL 

subroutine to input and edit starting and ending numbers 

XCALL STRIP,'STRING 

subroutine to remove trailing blanks. It runs about 100 
times faster than can be done in BASIC. 

XCALL TMENU,MENU IB.SELECT 

subroutine to display standard transaction Menu, screen 
is cleared, title is put on line 1 and following menu 
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is centered on the screen: 

PLEASE SELECT APPLICATION: 

1. ENTER (ADD) NEU TRX 

2. CHANGE EXISTING TRX 

3. DELETE EXISTING TRX 

4. PRINT TRX EDIT LIST 

5. POST TRX TO MAIN FILE 

6. CREATE BACKUP UORK FILE 

MENUID string specifying user title 
SELECT returned response 

XCALI TMEN2,MENUID,SELECT 

a nodified version of TfiENU 

XCALL UAIT,OPTION 

subroutine to display various wait Messages 
OPTION specifies the Message to be output: 

1 => clear screen, display "PROCESSING OCCURRING ... PLEASE UAIT" 

on line 12 

2 => clear screen froM row 4, colunn 2? on, display 

"PRINTING OCCURING ... PLEASE UAIT" on line 12 

3 => display "PLEASE UAIT ..." on line 24 

4 => clear screen fron row 4, colunn 1 on, display 

"PROCESSING OCCURING ... PLEASE UAIT" on line 12 

t 

This has been conpressed fron 25 sheets; I hope I have preserved the 
flavor of the routines. 


USER DISTRIBUTED PROGRAMS ON SUPPLEMENTAL SHEETS 
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OCVT 

4,' H 3 2 

• 

1 

4 DIGITS, TRAILING SPACE 


NOV 

(R3)+,R1 

• 

* 

ADDRESS OF VARIABLE 


NOV 

R1, R 0 

f 

SAVE ADDRESS FOR LATER 


OCVT 

4,*H32 




MOV 

(R3)+,R1 

• 

f 

SIZE OF VARIABLE 


DCVT 

4, ' H33 




NOV 

R1 ,R5 

f 

SAVE SIZE OF VARIABLE 

PL00P2: 

NOVB 

(R0)+,R1 . 

f 

GET A BYTE OF ARBUKEHT 


OCVT 

2.-H2 



. 

SOB 

R5,PL00P2 




CRLF 


m 

f 

CARRIAGE RETURN 


BR 

PL0CP1 



PRTN: 

addi 

4, SP 

f 

POP THF. TUO ITEHS 


NOV 

R 4, e R 2 

f 

RESTORE HEX OR OCTAL AS IT UAS 


RTN 


u 

r 

AND RETURN TO BASIC 


END 





For a call of the type XCALL PARG,1.5,3.4,“HI THERE",A* where A$ is a 


null 

string, the 

output appears as: 

8 

TYPE 

ADDR 

LEN VAL 

1 

0004 

8FFS 

6 C04000000000 

2 

0004 

3 F F 0 

6 594199999999 

3 

0002 

8FE8 

8 4849205448455245 

4 

0002 

8F60 

10 00000000000000000000 


In this 

version, the variable nunber 


the type, address, an 
output as consecutive 
interpreting the vain 
consecutive bytes,* 
even byte with the even byte 
left. Yes, i Know it 


output in decimal 

* « ... I m 


, and value are output in hexadecinal. Note, the value is 
tive bytes, not as consecutive words. Thus, be careful in 
value. In particular, character strings are addressed as 
; however, a word is assenbled frow two bytes addressed by 
e even byte on the right and the following odd byte on the 
w it is strange, but that is the way it is. 


FLOATING POINT REPRESENTATION 

After reading the brown Manual "UD16 HICRQCQHPUTER* pages 34 and 35 in 
trying to determine what the bit pattern was for the floating point numbers, 
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I decided it would be easier to have the Machine tell He. The following 
ALPHA8ASIC (TM) prograft was written and run. 


10 MAPI A 

11 MAP2 FLT,F,6 

12 MAPI BIN 

13 MAP2 DIG(3>,5,2 

14 5TRSIZ 1 

1 5'Dill DIGIT$< 1 6) 

16 FDR 1=1 TO 16: READ DIGITt(I): NEXT I 

17 DATA " 0 "," 1"," 2 " ," 3 ", “ 45 "," 6 "," 7 ‘8" 
1? STRSIZ 18 

20 INPUT "FLT = FLT 
22 BIN=A 
24 C$ = "“ 


11(^11 ll^ll “g** »«£H »»£»» H p H 


20 FDR 1=1 TO 3 

21 B1 = IN T (DIG (I) / 4 0 9 6): DIG(I)=DIG(I)-D1*4096: D2=INT(DIG(I)/256) 

32 DIG(I)=DIG(I)-D2*256: D3=INT(DIS<I)/16): D4=DIG(I)-D3*16 

33 C1=C$+DIGIT$(IU+1)+DIGIT$(D2+1)♦" "+DIGIT$(D3+1)+DIGIT*(D4+1)+“ " 

3'4 NEXT I 

40 PRINT TAB(20); C$ 

80 GOTO 20 
90 END 


The following is a table of the results of the progran. Using this 
inforwation and the data fron the Manual, the floating point representation is 
now understandable. Note, the hex representation consists of the coftponent 
words. 

DECIMAL NUMBER HEX REPRESENTATION 


4 

i • 

40 

80 

00 

00 

00 

00 

n 

*. a 

41 

00 

00 

00 

00 

00 

4. 

41 

30 

00 

00 

OO 

OO 

-1 . 

CO 

80 

00 

00 

OO 

OO 

» 

Cl 

00 

00 

00 

OO 

OO 

-4. 

Cl 

80 

00 

00 

00 

OO 

3.14159265 

41 

49 

OF 

DA 

?£ 

46 

-3.14159265 

Cl 

49 

OF 

DA 

9E 

46 
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HIGHLY PLACED SOURCES 


Highly Placed Sources is intended to be a resource of rumors, 
gossip, future p-oduct announcements, and other various items of 
interest that I'd like to pass on to AMUS newsletter readers and have a 
little fun in the process. 

This AMUS NEWSLETTER is late because Steve Patterson played 
Manana with it. So I will admit to this publicly (Elliott & Taylor's 
excuses will appear in the next exciting issue of AMUS confessions.) We 
will see you at the next showing of the SHORT LIMBED FOLLIES or: HOW I 
WAS SAWED IN HALF AT WARREN’S WORST WORRIES: see you at the faire! 

Here's a goody that I think you'll like: A/M reportedly plans 
to release the (AM-600?), a complete 1/2" nine-track tape drive system 
that will include: an S-100 interfce card, controller/formatter that 
will handle at least four drives, and possibly more. It will have 45 
IPS R/W speed, dual density 800/1600 BPI NR2I format. The drive itself 
will probably use tension-arm tape control, be rack mountable, and be a 
miniture version of the biggies with a 2400 ft. reel capacity. No 
dates, prices, deliveries, or further details available (of course). My 
educated? guesstimate is that the software, S-100 interface, 
controller/formatter, and one drive will retail for under 
$6,000.00.and I could be surprised in April *79? 

FORTRAN IV is in development by an outside contractor. No 
commitments and no delivery dates from contractor or A/M. I don't blame 
them. My idea of a future release announcement is that you announce 
when you see at least SOME light at the end of the tunnel. However, if 
they don't hurry along, Ray Rosich will beat them with his interactive 
version of FORTRAN 77. 

When I was in Dallas at the IME, I saw and used release 4.0 of 
AMOS, which was pretty darn good. I also used version 1.0 of the 
business software, which was damned good. This software should be 
available from your dealer now....but Richard McClendon's business 
software surpasses anything available on the market today, in my 
opinion. It is reported to be uncrashable, except for input service 

routines. I could not crash the system- I will detail the system in a 

future issue. 

Rumor has it that a new users, operators, and programming 
procedures manual is coming... but not from A/M. The Boulder Free 
School has put together a rather nice manual that will sell for $7.50. 
Prices go up at the first of the year to $10.00. It will be available 

at your local dealer in about four weeks. 


Look for the micro computing industry to form an association at 
the West Coast Computer Faire. It will be their intention to sponsor 
only three shows nationally in the coming year. A West coast show, an 


27 





East coast show, and NCC. Most manufacturers (including A/M) find that 
$25K is not hard to spend for a first-class show, let alone some of the 
smaller regionals. There are simply too damn many shows with sparse 
attendance. The new all-industry organization is headed up by none 
other than your friend and mine....JOHN FRENCH. 

It will cost $100.00 per year to join, but will be extremely 
well worth it from any point of view. If you are an A/M dealer, and 
even if you 1 re not, attendance is an absolute must! There are simply 
going to be too many things going on in Washington, D.C. and other lofty 
government places that will require representation, and this is the best 
way I know to get it. You can get more information on joining this 
group by calling John at (714) 768-3411, or writing to him at 3095 Red 
Hill Dr., Costa Mesa, Calif. 92626. 

Attendance at the Faire is going to be a must as there will be 
many things going on that will require your attenance, especially the 
two-day AMUS seminars. AMUS and A/M will be sponsoring them as a joint 
venture. Everyone is urged to attend them on Wednesday and Thursday, 
November 1st & 2nd. 

I will be holding an Alpha Micro Dealer*s meeting on the evening 
of November 2nd at 7:30 PM in the same meeting room that will be used 
for Alpha Micro seminars during the Faire. Some very interesting ideas 
will be discussed. Attendance by all A/M dealers is well advised. 
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Computer Applications Research 


7 August 197Q 


Banco S, Taylor, esq.. 

Data Processing Consulting Inc,, 
P.0. Bax 1723, 

Boulder, 

COLORADO 00306 


Dear Barnes, 

Tony has passed on your letter of the 29 Duly for which I thank 
you. It is nice to have someone to share our problems uithj \lu 
hope that we can also be of use to another member of Anus and uo 
will therefore keep you constantly informed of all our development 
in both hardware and software. 

We encloso herewith specifications of our first software package 
which is a highly specialized, comprehensive, and sophisticated 
fashion retailing management system. Source code is not made 
available. The system will be configured by us according to in¬ 
formation given to us on a questionnaire in respect of size ranges 
number of departments, branches, sales assistants, etc. The 
package will be fully maintained by us for an annual licence fee. 

The licence fee varies according to tho size of the installation, 
being mainly dependent upon the number of branches and departments 
The single branch system with 10 departments would be ^3,030 per 
annum. Otherwise wc can quote prices after completion of a 
specific questionnaire. We would then also be able to indicate 
the disc and core size required for such a system. A copy of 
this specification and questionnaire is available upon request. 

We have another package nearing completion which I hope to write 
to you about in a couplte of weeks time. 



Enel. 


A division of C A R Business Systems Limited 
107 Gloucester Rood, London SW7 Telephone 01-373 4834 

Registered address 5,Smger Street, London EC2. 
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FOX ASSOCIATES 

COMMUNICA TION SYSTEMS ENGINEERING 


September 8 f 1978 


Mr. Steve Elliott 
Community Free School 
P.O. Box 1724 
Boulder, Colorado 80306 

Dear Steve: 

Those of us who have lived with the Alpha Micro for any length 
of time have discovered what a handy thing the COMMAND files 
can be. My user number (2,2) seems to keep filling up with 
all sorts of useful "keystroke savers". One of the first 
ones to show up was CLEAN.CMD, which merely reads: 

ERASE *.BAK 

DIRSEQ 

DIR 

It's short but quite useful after a heavy session with the 
EDIT program. 

A more elaborate example is BACK.CMD, which our non-programmer 
types use to make a backup copy of their data disks (a habit 
we all develop after our first ’disaster* with the one-and-only 
disk with that critical data). The command file assumes that 
an AMOS system disk is in floppy drive #0, which includes the 
normal programs to be found in PPN (1,4) and the BACK.CMD file 
in C2,2). It rurther assumes that the user is logged on to 
his or her own PPN on disk drive #1. The user merely types 
"BACK" and follows instructions in order to make that all- 
important backup disk. 

There must be several such "goodies" like this for every Alpha 
Micro System installation. How about an exchange via the AMUS_ 
newsletter? 

Sincerely, 

7 “ Zb? 

Tom Fox 


New Address: 17925 Sky Park Circle, Suite #G, Irvine, CA 92714 
5211 Chablis Circle Irvine, California 92714 (714) 551-6907 
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6l6 Lon? Pond Road 
Rochester, New York 14612 

2 September 19?3 


James 3. Tavlor 

Data Processing Consulting, Inc. 

P. 0. Pox 1723 
Boulder, CO 8030* 

Dear Jim: 

Enclosed is the September Newsletter. Feel free to use whatever you think 
useful to you. 

Thanks for your Newsletters. Note, in the June issue there is an error 
in the proposed Printer Spooler Reauest nro^ram changes. The line labeled 
QKIL2: VlNl 5,R3 should be ‘ QXIL2: YCVI 6,R3 

Fortunately, this error will be not detected until a file is removed from the 
queue with the /K cotton. I a?ree with the suggestion rade in the July Newsletter 
that PRINT FRSD.DAr/D bo implemented to delete a file after printing. I would 
also surest somethin? like PRINT FRED.DAT/C33D which would print 35 copies 
and then delete the file. It would also be nice to be able to simulate form 
feeds when one is running the spooler on a terminal rather than on a printer — 
in mv case, I run it on a model ^3 TTY, Which biin?s me to this — does anyone 
mind if I try to implement some, or all, of my suggestions with the program 
and then send the resultin? program to you for distribution, publication, or 
whatever with your grouo? On my end, I would dump it into the library. 

Sincerely, 

Lefford F. Lovden 
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INFORMATION SYSTEMS RESEARCH LABORATORY 
FC Box *158 - 

Medford , Cr 97501 

(505) 775-or56 


Jim Taylcr June 9*1978 

AMDS 

K5 Bex 1725 
Boulder, Cole 6CJC6 

Dear Jim: 

ISRL is currently developing a n data management system* for the AMS called 
ISRL-DIS (ISRL’s Data Information System). It consists of the two programs: 


DISIO • an I/O management package which features • 

data and program independence 
password security on an item&fc field) level 
file sharing by multiusers 
sequential I/O 

indexed I/O (partially inverted) 
direct I/O by record number 

DIS - an application program built around EISIC with 

editing 

sorting 

updating 

searching (full conditional) 
reporting 

etc. capabilities on DISIO data files. 

The DISIO program is designed so that it may reside in monitor memory and 

has an Alph^Easic interface package of ^SBR subroutines. DIS is an integrated 

package which includes DISIO and is designed for user memory residence. Each 

is available in object form only for the following costs: 

DISIO - 2,5CO Available in July 

DIS - 5*000 (includes DISIO)* Available in August. 

Please include this information in the AMDS Software Directory. 


Respectfully, 


Q&Jc. % 

^Jack N. H atfield 


* Assumes DISlO as sef/tuie & r mother 
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0*awne, dfiacdti&ri and S^Mocicbteb 

"447 Eost Fifth Avenue, Anchorage, Alaska 99501 
Accounting • Data Processing e (907) 272-7261 


PJA ACCOUNTING SYSTEM 


July 26, 1978 


We have a generalized Interactive bookkeeping and accounting 
system which was written In Alpha Basic by our staff of Certified 
Public Accountants for our accounting practice. It was created 
primarily during the last six months of 1977 and placed Into ser¬ 
vice on January 2, 1978. To date we have invested in excess of six 
thousand hours in its development, Including improvements and up¬ 
dates with each new AMOS release. The system has been in constant 
use during 1978 with numerous clients covering a wide range of bus¬ 
iness activities. The system is a complete accounting system and 
Includes the following subsystems* accounts payable, accounts re¬ 
ceivable, cash disbursements, cash receipts, financial statements, 
fixed assets, general journal, general ledger, inventory, payroll, 
and sales. 


The entire system is menu driven and chained together allow¬ 
ing the user to execute all functions (with the exception of AMOS 
functions like disk copies) without leaving the PJA system^ con¬ 
trol. Advance CRT menu screens are used throughout, permitting 
the use of personnel less familiar with computers and accounting. 

Data entry defaults and edit controls are used whenever possible 
to Increase productivity and accuracy. The system is designed to 
provide detailed audit trails thereby reducing the job of tracing 
and Identifying past transactions, 

GENERAL LEDGER 

The PJA G/L system has been designed to provide a basic account¬ 
ing system for a wide range of businesses and non-profit organiza¬ 
tions. An 8 digit account number is used including a 2 digit de¬ 
partment and a 2 digit section number. This allows the system to 
maintain separate accounts for each department, fund,job or com¬ 
pany and still produce a consolidated general ledger and financial 
statements. Year to date historical transactions may be maintained 
within the general ledger and are limited only by the file size. 

In addition, monthly transactions may be either summarized or posted 
in detail. Postings may be reversed and removed from the G/L for 
error correction and then reposted. 

Standard G/L reports consist of the general ledger detail, gen¬ 
eral ledger summary, chart of accounts plus the various batch re¬ 
ports and journals. The Cash Disbursements, Cash Receipts, and Sales 
Journals can be produced in account number, document or vendor/cust¬ 
omer name order. Automatic depreciation and amortization compu¬ 
tations are also included In the system for both interim and annual 
entries. All standard depreciation methods are supported. 
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FINANCIAL STATEMENTS 


Since one of the primary purposes of accounting is to provide 
financial statements to management, creditors, etc., we have placed 
particular emphasis on the financial statement subsystem. It al¬ 
lows the user to design their own financial statements as needed. 

The statements can be either on a cash or accrual basis. This has 
proven to be a particularly useful feature since the most cost 
effective method of maintaining an accounting system is on the cash 
basis. The PJA financial statement subsystem will take a general 
ledger maintained on a cash basis and produce accrual basis finan¬ 
cial statements by using special techniques vrnich we developed. In 
addition, the financial statements may be either departmentalized 
and/or sectionalized, with or without footnotes. Supporting sched¬ 
ules and statements if used, may be referenced either by the primary 
statements or the footnotes. 

PAYROLL 

The payroll system supports the following employee typesi hour¬ 
ly, salaried, salary plus hourly, commission with or without a mini¬ 
mum, salary plus commission, hourly plus commission and bonuses. 
Computation periods may be monthly, semimonthly, weekly, biweekly or 
other periods desired. In addition, different employees may have 
different computation periods within the same payroll. Standard 
earning categories include regular, overtime, and sick pay, with six 
other earning categories possible. Each of the six other earning 
categories can be taxable or not by each of the seven tax categories. 
Nine other deductions are also handled. All other earnings, tax and 
deduction categories are user defined. The operator may override all 
computations in unusual situations. 

ACCOUNTS RECEIVABLE 

The accounts receivable system will support in excess of 2000 
individual customer accounts and produce the following reportst 
month to date activity report, A/R aging, month end statements, plus 
various batch reports. This system interfaces directly with the G/L 
cash receipts and sales subsystems to eliminate the need to enter 
data more than once. 

The PJA accounting system also Includes other subsystems which 
when combined, provides a complete accounting system for most types 
of businesses and non-profit organizations. 

The system will be sold initially for $2000.00 for all systems 
except accounts payable ana inventory. The complete package is avail¬ 
able for $2500.00. For more information contact* 

PAYNE, JACKSON AND ASSOCIATES 
44? EAST 5TH AVENUE 
ANCHORAGE, ALASKA 99501 
(907) 272-7261 


34 




17925 SKY PARK CIRCLE, SUITE #G 
IRVINE, CALIFORNIA 92714 
(714) 957-9331 


SECRETARIAL SERVICE USING AM 100 
CAN PROVIDE DATA INPUT SERVICES 
FOR YOUR SYSTEM. 


COMPETENT - FAST - ACCURATE - REASONABLE - QUICK TURNAROUND 



/ 




ON-TRAK 

loot L Mt. Cur*# St. 
Aftadana. California 
91001 

T "— Qa-TRfiH !~. 


SUMMER 1973 




SOFTWARE s ^!7 io " AM-100 

© Programming to specification 
© Analysis 
© Documentation 


We write programs in BASIC for AM-100 users. We’re capable of 
either scientific or business systems analysis and specification 
writing, or if you wish, we will work to your spr.?. We currently have 
one AM-100 system dedicated to new program development and 
would be quite happy to give you a demo on our system or yours. 


For references or further information please write us or cail 




( 213 ) 794-1439 

□ □'"TRflFa 
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AMUS 9/08/78 

Attn: Jim Taylor 

P.0. Box 1723 

Boulder, Colorado 80306 

Dear Mr. Taylor, 

I have just reviewed Mattel's copy of the July AMUS, and was truly and 
favorably impressed. Please accept our payment for subscription to 
the newsletter (enclosed). 

In addition to our own AM-100 here at ON-TRAK, I am also the operator 
of an AM-100 system at the Sierra Engineering Company R&D facility in 
Arcadia, where we will soon have a 10MB CDC Hawk. Regarding your 
request in the newsletter, either myself or my partner, Henry S. Cordova 
would be happy to talk at length with potential AM-100 users about our 
experiences. 

ON-TRAK is a custom programming house, but we are also offering these 
utilities for sale. 


INPUT USING 

This is a BASIC subroutine that makes use of an XCALLed assembly 
routine to enable all sorts of fancy Input. Examples: 

dates (—/—/—), telephone numbers ( (-)---), 

Social Security numbers, or ANY thing you can think of. 


This utility program will read your BASIC program ^nd produce 
a copy with the x and y tab function coordinates reversed. 

The user has the option of adding an integer constant to 
each coordinate. 

3. CPY01 & CPY10 

These command files help avoid accidents with DSKCPY. 


Other utilities and systems are forthcoming. For more information, 
or whatever, o«ll us at (213) 794-1439. 


Thankyou, 
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KITZMILLER SYSTEMS 


(213) 385-9388 


JAMES w. KITZMILLER. MS 252 SOUTH OXFORD 

MCS.OCNT LOS ANGELES, CALIFORNIA 90004 


INFORMATION LETTER 
24 July 1978 


The Business Management System software for the Alpha 
Microsystems computer is now complete. It works on both 
floppy disk systems and hard disk systems. 


Those who ordered pre-completion copies will be receiving the 
complete system shortly. 


The software contains quite a few capabilities beyond what 
was originally promised. 


We are preparing demo disks to demonstrate the complete system. 
We will be sending these domo disks to those who have our 
earlier demo as well as to those who bought the source code 
for the Business Management System. 


Be sure to let me know of any suggestions or comments that 
you have. 


The entire system is easy to use because of the self-explanatory 
menus. Even so, we are preparing detailed documentation. 


Hope you make good use of the system. 


Jim Kitzmiller 
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WORKSHOP SCHEDULE 


WED. THUR. FRI. SAT. 


SYSTEM 

ARICTECTURE 

WRITING 

PROGRAMS 


EDUCATIONAL 

SPECIAL 

INTEREST 

GROUP 

AMOS 

*.PRG 

CONFIGURING 

SYSTEMS 

BOARD OF 

DIRECTORS 

MEETING 

MEDICAL 

SPECIAL 

INTEREST 

GROUP 

BASIC 

EDIT 

TXTFMT & 

VUE 

COMMUNICATIONS 

CROSS 

LICENSING 

AGREEMENTS 

PASCAL 


AMUS 

COMMUNICATIONS 

NETWORK 

WORD 

PROCESSING 


i 

DEALERS 

(STEVE 

PATTERSON) 


AMUS 

GENERAL . 
MEETING 


Time will be scheduled at the Faire for demonstration of systems, 
program swapping, or any other meeting on Sunday. A system will 
be available. Bring programs to swap. 

All meetings will be held at the Gala Inn Towne Motor Hotel 
where Alpha Micro has reserved a meeting room for the entire week, 
except for the general AMUS meeting which will be held in a room 
at the Faire. Location of the general meeting will be listed 
in the Faire schedule. 
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